inherited fmKullaniciYetkiler: TfmKullaniciYetkiler
  Left = 281
  Top = 141
  Caption = 'Kullan'#305'c'#305' Yetkileri'
  ClientHeight = 529
  ClientWidth = 942
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel [0]
    Left = 0
    Top = 0
    Width = 942
    Height = 60
    Align = alTop
    TabOrder = 0
    object Label3: TLabel
      Left = 12
      Top = 11
      Width = 39
      Height = 13
      Caption = 'Kullan'#305'c'#305
      Transparent = True
    end
    object Label5: TLabel
      Left = 235
      Top = 33
      Width = 29
      Height = 13
      Caption = 'B'#246'l'#252'm'
      Transparent = True
    end
    object Label28: TLabel
      Left = 235
      Top = 11
      Width = 52
      Height = 13
      Caption = 'Departman'
      Transparent = True
    end
    object Label4: TLabel
      Left = 12
      Top = 32
      Width = 51
      Height = 13
      Caption = 'Direkt'#246'rl'#252'k'
      Transparent = True
    end
    object Label1: TLabel
      Left = 451
      Top = 11
      Width = 46
      Height = 13
      Caption = #220'st Menu'
      Transparent = True
    end
    object Label2: TLabel
      Left = 451
      Top = 33
      Width = 27
      Height = 13
      Caption = 'Menu'
      Transparent = True
    end
    object Label6: TLabel
      Left = 643
      Top = 11
      Width = 42
      Height = 13
      Caption = 'Alt Menu'
      Transparent = True
    end
    object Label7: TLabel
      Left = 643
      Top = 33
      Width = 24
      Height = 13
      Caption = 'Yetki'
      Transparent = True
    end
    object Listele: TBitBtn
      Left = 827
      Top = 5
      Width = 99
      Height = 50
      Caption = 'Listele'
      TabOrder = 8
      OnClick = ListeleClick
    end
    object Kullanici: TwwDBLookupCombo
      Left = 69
      Top = 8
      Width = 147
      Height = 21
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'UserName'#9'20'#9'Kullan'#305'c'#305' Ad'#305#9'F'
        'AdiSoyadi'#9'30'#9'Ad'#305' Soyad'#305#9'F'
        'Aktif'#9'1'#9'Aktif'#9#9)
      LookupTable = aqKullanici
      LookupField = 'id'
      Style = csDropDownList
      Navigator = False
      TabOrder = 0
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
    end
    object Bolum: TwwDBLookupCombo
      Left = 298
      Top = 30
      Width = 134
      Height = 21
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'MASADI'#9'30'#9'B'#246'l'#252'm'#9'F')
      LookupTable = Personel_BolumQ
      LookupField = 'id'
      Style = csDropDownList
      Navigator = False
      TabOrder = 3
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
    end
    object Departman: TwwDBLookupCombo
      Left = 298
      Top = 8
      Width = 134
      Height = 21
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'ALT_MASADI'#9'30'#9'Departman'#9'F')
      LookupTable = Personel_DepartmanQ
      LookupField = 'id'
      Style = csDropDownList
      Navigator = False
      TabOrder = 2
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
    end
    object Direktorluk: TwwDBLookupCombo
      Left = 69
      Top = 30
      Width = 147
      Height = 21
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'ANA_MASADI'#9'30'#9'Direkt'#246'rl'#252'k'#9'F')
      LookupTable = Personel_DirektorlukQ
      LookupField = 'ID'
      Style = csDropDownList
      Navigator = False
      TabOrder = 1
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
    end
    object Menu: TwwDBLookupCombo
      Tag = 2
      Left = 514
      Top = 30
      Width = 112
      Height = 21
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'Menu'#9'50'#9'Menu'#9#9)
      LookupTable = sp_YetkiMenu
      LookupField = 'Menu'
      Style = csDropDownList
      Navigator = False
      TabOrder = 5
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
      OnExit = UstMenuExit
    end
    object UstMenu: TwwDBLookupCombo
      Tag = 1
      Left = 514
      Top = 8
      Width = 112
      Height = 21
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'UstMenu'#9'50'#9'UstMenu'#9#9)
      LookupTable = sp_YetkiUstMenu
      LookupField = 'UstMenu'
      Style = csDropDownList
      Navigator = False
      TabOrder = 4
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
      OnExit = UstMenuExit
    end
    object Yetki: TwwDBLookupCombo
      Tag = 4
      Left = 705
      Top = 29
      Width = 112
      Height = 21
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'Yetki'#9'50'#9'Yetki'#9#9)
      LookupTable = sp_YetkiYetki
      LookupField = 'Yetki'
      Style = csDropDownList
      Navigator = False
      TabOrder = 7
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
    end
    object AltMenu: TwwDBLookupCombo
      Tag = 3
      Left = 705
      Top = 7
      Width = 112
      Height = 21
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'AltMenu'#9'50'#9'AltMenu'#9#9)
      LookupTable = sp_YetkiAltMenu
      LookupField = 'AltMenu'
      Style = csDropDownList
      Navigator = False
      TabOrder = 6
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
      OnExit = UstMenuExit
    end
  end
  object grdYetki: TcxGrid [1]
    Left = 0
    Top = 60
    Width = 942
    Height = 435
    Align = alClient
    PopupMenu = PM1
    TabOrder = 1
    object GrdListeDBTableView: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      OnCellDblClick = GrdListeDBTableViewCellDblClick
      DataController.DataSource = ds_Yetki
      DataController.Filter.Options = [fcoCaseInsensitive]
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      DataController.OnFilterRecord = GrdListeDBTableViewDataControllerFilterRecord
      FilterRow.InfoText = '  '
      FilterRow.Visible = True
      FilterRow.ApplyChanges = fracImmediately
      OptionsBehavior.IncSearch = True
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.Indicator = True
      Styles.ContentOdd = dm.cxStyle15
      Styles.Selection = dm.cxStyle14
      object GrdListeDBTableViewX: TcxGridDBColumn
        DataBinding.FieldName = 'X'
        PropertiesClassName = 'TcxCheckBoxProperties'
        Width = 25
      end
      object GrdListeDBTableViewUserName: TcxGridDBColumn
        Caption = 'Kullan'#305'c'#305' Ad'#305
        DataBinding.FieldName = 'UserName'
        Width = 104
      end
      object GrdListeDBTableViewAdSoyad: TcxGridDBColumn
        Caption = 'Ad'#305' Soyad'#305
        DataBinding.FieldName = 'AdSoyad'
        Width = 107
      end
      object GrdListeDBTableViewEnUstMenu: TcxGridDBColumn
        Caption = 'En '#220'st Menu'
        DataBinding.FieldName = 'EnUstMenu'
        Width = 72
      end
      object GrdListeDBTableViewUstMenu: TcxGridDBColumn
        Caption = #220'st Menu'
        DataBinding.FieldName = 'UstMenu'
        Width = 114
      end
      object GrdListeDBTableViewMenu: TcxGridDBColumn
        DataBinding.FieldName = 'Menu'
        Width = 90
      end
      object GrdListeDBTableViewAltMenu: TcxGridDBColumn
        Caption = 'Alt Menu'
        DataBinding.FieldName = 'AltMenu'
        Width = 130
      end
      object GrdListeDBTableViewForm: TcxGridDBColumn
        Caption = 'Yetki'
        DataBinding.FieldName = 'Form'
        Width = 91
      end
      object GrdListeDBTableViewYetki: TcxGridDBColumn
        Caption = 'Alt Yetki'
        DataBinding.FieldName = 'Yetki'
        Width = 92
      end
      object GrdListeDBTableViewY: TcxGridDBColumn
        Caption = 'Kull. Yetki'
        DataBinding.FieldName = 'Y'
        PropertiesClassName = 'TcxImageComboBoxProperties'
        Properties.Items = <
          item
            Description = 'Var'
            ImageIndex = 0
            Value = 2
          end
          item
            Description = 'Yok'
            Value = 1
          end
          item
            Description = 'Yok'
            Value = 0
          end>
        Width = 65
      end
      object GrdListeDBTableViewG: TcxGridDBColumn
        Caption = 'Grup Yetki'
        DataBinding.FieldName = 'G'
        PropertiesClassName = 'TcxImageComboBoxProperties'
        Properties.Items = <
          item
            Description = 'Var'
            ImageIndex = 0
            Value = 2
          end
          item
            Description = 'Yok'
            Value = 1
          end
          item
            Description = 'Yok'
            Value = 0
          end>
      end
      object GrdListeDBTableViewDirektorluk: TcxGridDBColumn
        DataBinding.FieldName = 'Direktorluk'
        Width = 138
      end
      object GrdListeDBTableViewDeparman: TcxGridDBColumn
        DataBinding.FieldName = 'Deparman'
        Width = 101
      end
      object GrdListeDBTableViewBolum: TcxGridDBColumn
        DataBinding.FieldName = 'Bolum'
        Width = 99
      end
      object GrdListeDBTableViewAktif: TcxGridDBColumn
        DataBinding.FieldName = 'Aktif'
      end
      object GrdListeDBTableViewKullaniciYetkiid: TcxGridDBColumn
        Caption = 'Yetkiid'
        DataBinding.FieldName = 'KullaniciYetkiid'
        Visible = False
        Width = 36
      end
      object GrdListeDBTableViewid: TcxGridDBColumn
        Caption = 'Kullid'
        DataBinding.FieldName = 'id'
        Visible = False
        Width = 30
      end
      object GrdListeDBTableViewbagliform: TcxGridDBColumn
        Caption = 'BF'
        DataBinding.FieldName = 'bagliform'
        Visible = False
        Width = 33
      end
      object GrdListeDBTableViewrefid: TcxGridDBColumn
        Caption = 'R'
        DataBinding.FieldName = 'refid'
        Visible = False
        Width = 31
      end
    end
    object cxGridLevel2: TcxGridLevel
      GridView = GrdListeDBTableView
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 495
    Width = 942
    Height = 34
    Align = alBottom
    TabOrder = 2
  end
  inherited alKeyControl: TActionList
    Left = 629
    Top = 426
    object acYetkiKaldir: TAction
      Caption = 'Se'#231'ililerden Yetki Kald'#305'r'
      OnExecute = acYetkiVerExecute
    end
    object acYetkiVer: TAction
      Tag = 2
      Caption = 'Se'#231'ililere Yetki Ver'
      OnExecute = acYetkiVerExecute
    end
  end
  inherited XPManifest: TXPManifest
    Left = 704
    Top = 426
  end
  object sp_Yetki: TADOStoredProc
    Tag = 1
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforeOpen = sp_YetkiBeforeOpen
    AfterOpen = sp_YetkiAfterOpen
    CommandTimeout = 3000
    ProcedureName = 'sp_Yetki;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@Kulid'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = 81
      end
      item
        Name = '@Bolum'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Departman'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Direktorluk'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@UstMenu'
        Attributes = [paNullable]
        DataType = ftWideString
        Size = 50
        Value = Null
      end
      item
        Name = '@Menu'
        Attributes = [paNullable]
        DataType = ftWideString
        Size = 50
        Value = Null
      end
      item
        Name = '@AltMenu'
        Attributes = [paNullable]
        DataType = ftWideString
        Size = 50
        Value = Null
      end
      item
        Name = '@Yetki'
        Attributes = [paNullable]
        DataType = ftWideString
        Size = 50
        Value = Null
      end
      item
        Name = '@Type'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 414
    Top = 211
  end
  object ds_Yetki: TDataSource
    DataSet = sp_Yetki
    Left = 415
    Top = 259
  end
  object Personel_BolumQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      
        'select ID,MASKODU,MASADI,ALT_ID from CS_PERSONEL_MASRAF_MERKEZI ' +
        'Where AKTIF=1')
    Left = 55
    Top = 342
  end
  object Personel_DirektorlukQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      
        'select ID,SUBE,ANA_MASKODU,ANA_MASADI from CS_MUHASEBE_ANA_MASRA' +
        'F_MERKEZI Where AKTIF=1'
      ''
      '')
    Left = 56
    Top = 288
  end
  object Personel_DepartmanQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      
        'select ID,ALT_MASKODU,ALT_MASADI,ANA_ID from CS_MUHASEBE_ALT_MAS' +
        'RAF_MERKEZI Where AKTIF=1')
    Left = 56
    Top = 232
  end
  object aqKullanici: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select K.id,K.UserName,AdiSoyadi=P.Adi+'#39' '#39'+P.Soyadi,P.Aktif'
      'from Kullanici K '
      'left Join Perkart P on (K.Personelid=P.Perkod)'
      'Order By Username')
    Left = 54
    Top = 402
  end
  object PM1: TPopupMenu
    Left = 256
    Top = 212
    object pmYetkiVer: TMenuItem
      Tag = 2
      Action = acYetkiVer
    end
    object pmYetkiKaldir: TMenuItem
      Action = acYetkiKaldir
    end
    object pmTumunuSec: TMenuItem
      Tag = 1
      Caption = 'T'#252'm'#252'n'#252' Se'#231
      OnClick = pmTumunuSecClick
    end
    object pmSecimiKaldir: TMenuItem
      Caption = 'Se'#231'imi Kald'#305'r'
      OnClick = pmTumunuSecClick
    end
  end
  object sp_YetkiUstMenu: TADOStoredProc
    Tag = 1
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforeOpen = sp_YetkiUstMenuBeforeOpen
    CommandTimeout = 300
    ProcedureName = 'sp_Yetki;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@Kulid'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = 0
      end
      item
        Name = '@Bolum'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Departman'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Direktorluk'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Type'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = 1
      end>
    Left = 524
    Top = 207
  end
  object sp_YetkiMenu: TADOStoredProc
    Tag = 2
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforeOpen = sp_YetkiUstMenuBeforeOpen
    CommandTimeout = 300
    ProcedureName = 'sp_Yetki;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@Kulid'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = 0
      end
      item
        Name = '@Bolum'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Departman'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Direktorluk'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Type'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = 2
      end>
    Left = 525
    Top = 263
  end
  object sp_YetkiAltMenu: TADOStoredProc
    Tag = 3
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforeOpen = sp_YetkiUstMenuBeforeOpen
    CommandTimeout = 300
    ProcedureName = 'sp_Yetki;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@Kulid'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = 0
      end
      item
        Name = '@Bolum'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Departman'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Direktorluk'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Type'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = 3
      end>
    Left = 613
    Top = 208
  end
  object sp_YetkiYetki: TADOStoredProc
    Tag = 4
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforeOpen = sp_YetkiUstMenuBeforeOpen
    CommandTimeout = 300
    ProcedureName = 'sp_Yetki;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@Kulid'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = 0
      end
      item
        Name = '@Bolum'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Departman'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Direktorluk'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Type'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = 4
      end>
    Left = 614
    Top = 262
  end
end
